﻿Public Class FormularioPrincipal

    Private Sub MantenimientoUsuariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MantenimientoUsuariosToolStripMenuItem.Click

        Dim formularioUsuarios As frmMantenimientoUsuarios
        formularioUsuarios = New frmMantenimientoUsuarios

        formularioUsuarios.MdiParent = Me
        formularioUsuarios.Show()


    End Sub


    Private Sub FormularioPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim usuarioBE = New SistemaCajas.BE.Usuarios

        If usuarioBE.Perfil = BE.Perfil.Administrador Then
            MainMenuStrip.Hide()
        End If

    End Sub
End Class